; Ampro Little Board BOOT ROM Assembly Source 
; 30 mS Step Version 
7 8080 Opcode Mnemonics - assembles with Digital Research ASM 


;====s> TMS July Z021 -====22 
? Copyright (e) 2021 Thomas M: Slaight 


; Permission is hereby granted, free of charge, to any person obtaining a copy 
; of this software source and documentation (the "Software"), to deal in 

; the Software without restriction, including without limitation the rights 

; to use, copy, modify, merge, publish, distribute, sublicense, and/or sell 

; copies of the Software, and to permit persons to whom the Software is 

; furnished to do so, subject to the following conditions: 


; The above copyright notice and this permission notice shall be included in 
; all copies or substantial portions of the Software. 


; THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS OR 
7; IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, 

; FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL TH 
7 AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER 

; LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, 
; OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN THE 
7; SOFTWARE. 


CI 


===== USING THE CODE ===== 

; The code uses standard 8080 opcode mnemonics. It can be assembled with the 

; Digital Research ASM.COM that is standard with CP/M 2.2 and came on the Ampro 
; Little Board system disk. 

; It has been verified to produce a .HEX that produces a binary that is an 

; identical match with code from the boot ROM dump. 


; Note that assembling this source file creates an Intel .HEX file with base 

; address of 08000H. Burning a new PROM or generating a .BIN from the .HEX 

; requires mapping from the 8000H offset to 0000H offset in the PROM. 

; This is typically accomplished by directing the programmer to map (load from) 
; address 8000H in the .HEX file to offset 0000H in the PROM. 


===== INTRO AND BACKGROUND ===== 

; This 8080 source code was created by the hand-disassembly of a 

; ROM dump from an original Ampro Little Board boot ROM (p/n A75501-302) 
; with labels, assembly directives, and functional annotations created 

; by the author. 


; When assembled the code reproduces the functional portion of the original 
; ROM (offsets 00000H through 001C1H, inclusive). A full reproduction of the 
; original ROM is made when the remaining unused bytes of the 4K ROM are set 
; to OFFh. As such, the output from this code may be considered incomplete 

; with respect to generating a complete duplicate of the ROM. 


; The hand-disassembly was actually first done using 280 

; opcode mnemonics. When the result appeared to only use 8080 functions, 

; the Z80 version was run through a simple Z780 to 8080 opcode translator 

; and assembly directives, labels, and comments added to create this file. 


This effort was made for educational purposes, help preserve a bit of 
history, and to serve as a possible aid to those looking to restore an 
original Little Board, or are simply curious about how this simple boot ROM 
functions: 


-- Binary Differences: "Maslin" vs this and other ROM sources 

This source code produces output that matches the ROM dump from an original 
Ampro Little Board p/n A75501-302 ROM as well as ROM binaries 

that have been uploaded by others for use with the MAME emulator software. 
This code and those uploads use a 30ms step rate for the WD1770 Floppy Disk 
Controller (FDC). 


The "Maslin" archives are another source for the boot ROM binary. 

The lb-bootv2 ROM code found in those archives does NOT match this code. 
That ROM uses a 6mS step rate for the FDC. This results in a a two-byte 
difference between the Maslin and A75501-302 binary as follows: 


offset maslin mine 4k checksum 
218 : Ox0da 0x08 0x0b Oxf0lbb ; FDC RESTORE command 6mS vs 30mS 
376 2 0x178 0x58 Ox5b OxfOlcl ; FDC STEP IN command 6mS vs 30mS 


As of this writing it is unknown whether the Maslin version matched any 
production version of the Little Board ROM v2.0 and if so, whether it came 
before or after the version on my Little Board. The version number in the 
binary is the same between both. I believe my original Little Board to be a 
pretty late version since it was purchased in 1985 and came with Revision F 
labeled on the system disk while the highest revision system disk for the 
original Little Board in the Maslin archives is Revision 
(There is a Rev. G, but Rev. G is for both the LB and LB+) 


ts 


-- STEP RATE - Does it matter? 

Either this version or the Maslin binary SHOULD work with MOST real 
(i.e. not emulated) Floppy Drives, but if there is any doubt check the 
specifications for the drive. 


The step rate only applies to operation of the boot ROM and does not lock 
down the step rate used once the system has booted. Ampro provides a 
CONFIG.COM utility that allows system software to be configured to use faster 
step rates during operation or even changed during run-time. 


-- Annotations 

The source code has been extensively commented. Additional annotations were 
made to aid the process of reverse assembly. Numbers in first column of the 
source comments list the physical offset in the original boot ROM. Numbers in 
parentheses list the corresponding address for the relocated code or RAM 
addresses. 


===== BOOT ROM GENERAL OPERATION ===== 

The basic operation of the boot ROM is as follows: 

1. disables interrupts and clears the board control register 

2. copies itself into RAM at 08000H and jumps to continue 
execution using the RAM version 

3. initializes the stack pointer to 09000H. 

4. initializes the CTC channels 0 and 1 and DART channels A & B. 
This sets up the CTC/DART combination for 9600 bps operation 
on both DART channels 


5. issues a "READ ADDRESS" command to the floppy controller to get 
the track, side, sector number, sector length, CRC1, and CRC2 
bytes into RAM 

6. checks the sector number to determine whether it should 
try to boot using sector number 1 or sector number 17. If 
the sector number returned by READ ADDRESS is <17 then it 
assumes sector 1 is the boot sector. Otherise it assumes 
sector 17 is the boot sector 

7. It then reads the boot sector into memory at 09000H and 

jumps to it. Note that is overwrites the previous location of 

of the stack, but at this point there is nothing to return to. 

8. If the floppy controller reports a Record Not Found or CRC Error 

at this point, or on any other command along the way in the boot 

process, the boot code jumps to 0000H and does a complete reset. 

If there's any problem with the drive or media, 

the board enter an endless retry loop. 


===== ADDITIONAL NOTES ON BOOT ROM OPERATION ===== 

The Ampro Little Board boot code only uses programmed I/O for 

command and data transfer operations with the FDC. I.e. no DMA, no 
interrupts. This is generally OK with standard CP/M 2.2 since the 
operating system is intrinsically single threaded and blocks on storage 
transfer operations. 


The boot ROM includes a support routines, including a READ TRACK and STEP IN 
routine, that are not used by the boot ROM itself, but are used by 

the Ampro boot loader code on the disk. The standard Ampro boot loader code 
uses those routines to read the first two tracks off the floppy and into RAM 
on the Little Board at a RAM offset determined by the boot loader code. 


The READ TRACK support routine does not use the floppy controller's 

Read Track functionality. It reads in a "track" one sector at a time. 

If it finds that the sector length is 1024 bytes it assumes a track is five 
sectors, otherwise it assumes a track is ten sectors. 


===== LIMITATIONS OF THE LITTLE BOARD BOOT ROM ===== 
== Lack of Error Status 
There's no console text or other output to confirm boot ROM execution or 
identify boot error status. It will just endlessly try to access the drive 
until it successfully reads track 0 sector #1 or #17 into memory, 
at which point it attempts to execute that sector without any integrity or 
validity checks. If there's a problem you will either see the floppy's LED 
"blink' as it loops trying to read the sector and resets upon getting a 
CRC or Record Not Found error (which could be due to disk corruption, 

a blank disk, or an unexpected disk format) or the LED 

will go on and stay on - which typically indicates the processor is hung 
because it tried to execute a bad or incorrect boot sector, or failed 
later in the OS boot process. 


-- Boot Sector Number 

The boot ROM code was designed to boot ONLY from 

floppies where the boot sector is sector number 1 or 17 on Track 0. 
This is hard-coded. 


-- Support Routines 
The boot ROM offers only limited support routines and functionality 
that aid the on-disk boot loader reading the first two tracks off the 


; disk. For example, there is STEP IN functionality, but no STEP OUT. 


z == MONITOR? 
; This boot ROM 


code uses just 450 bytes out of the 4K EPROM. TBD whether 


; there were ROM versions that did something useful with the space - such as 
> offering a ROM monitor. 


è == 96TPI? 
; Per the Ampro 


User's Manual: 


; “Drive A must be a 48 tpi (40 track) 5-1/4-inch drive, 


7 either single- 


or double-sided." 


; The User's Manual also states "System software is provided on a single-sided, 


; 40-track forma 


? It's not clear 
; boots from tra 
; track register 
> att, 250 kpbs: 


t disk, which cannot be read by 96 tpi drives". 


that DRIVE A must always be a 48 tpi drive. The boot code only 
ck 0 side 1 and the WD1770 Floppy Disk Controller has an 8-bit 
. The boot media must be MFM "double density" encoded 


7 == NO SINGL 


= 


D 


ENSITY BOOT 


; There is no support for booting from SINGLE DENSITY floppies. 


; The DDEN# sign 
; double-density 


al that controls whether the FDC is operating in single- or 
mode is determined by a bit in the Little Board's Board 


; Control register. That register is cleared at power-up and the boot ROM code 


; never changes 
; reading and wr 


; MISCELLANEOUS 
; There appears 
; "System Softwa 


the DDEN# value. Software can set that bit to enable 
iting single density disks AFTER booting. 


to be a typo in the User's Manual. It says: 
re reads each disk to determine the format (512 or 1024 bytes 


; per sector), and whether single- or double-sided. Single sided disks have 


; sector numbers 


$ 16 (16 to 25)": 


BDCTLRG 
FDCCMDRG 
FDCSECRG 
FDCSTATRG 
FDCDATRG 


H 3 I e a e e 


OOOO OOD 6 0 
C 


S) 
D 
y] 
HJ 
UJ 
ps) 
Q 


RESETVEC 
STACLOC 


from 1 to 10. Double-sided disk sector numbers are offset by 
The text. "(16 to 25)" should be “(17 to 26)": 


OOOH ; Board Control Register 

OCOH ; Floppy Disk Controller Command Register 
OC2H ; Floppy Disk Controller Sector Register 
OC4H ; Floppy Disk Controller Status Register 
OC7H ; Floppy Disk Controller Data Register 
040H ; Counter/Timer Circuit Channel 0 Register 
O50H ; Counter/Timer Circuit Channel 1 Register 
084H ; DART Channel A Register 

O8CH ; DART Channel B Register 


EQU 08000H 
EQU 00000H 
EQU 09000H 


EQU 09000H 


; Floppy Command Equates 
FDCRESTORE EQU OOBH ; RESTORE, spin-up sequence disabled, 30 mS step rate 
FDCSTEPIN1 EQU O5BH ; STEP IN side 1 with 30 mS step rate 
RDSGLSEC EQU 088H ; READ SINGLE SECTOR, no settling delay 
FDCRDADDR EQU OC8H ; READ ADDRESS, no settling delay 
FDCTERMINATE EQU ODOH ; FORCE INTERRUPT without interrupt 
; (DOH actually terminates FDC command in progress 
; without an interrupt) 
; JUMP TABLE 
ORG RAMLOC 
JMP START-RAMLOC ; 0000 Jump to beginning of boot code relative to 0 (029H) 
JMP SELDRIVE1 ; 0003 Reset FDC and select Drive 1 (080CEH) 
JMP STEPIN ; 0006 Select Side 1 (if SIDE1FLAG non-0) and then issue 
: STEP IN FDC command (08162H) 
JMP SELSIDE1 ; 0009 SELECT FLOPPY SIDE 1 in board control register. 
; (081A3H) 
JMP TERMFCMD ; 000C TERMINATE FDC COMMAND in progress (08182H) 
JMP SETDESTADDR + OOOF SET DESTINATION ADDRESS (0819FH) 
JMP READTRACK ; 0012 READ TRACK sector-by-sector (080E9H) 
F READ 10 or 5 SECTORS starting from as selected by 
; parameter 20 (sector length) 
JMP READSEC ; 0015 READ SECTOR (08138H) 
JMP READADDR ; 0018 ISSUE READ ADDRESS COMMAND (08121H) 
; PARAMETERS / VARIABLES 


The bytes in this area are used as variables and 
parameters after the ROM code has been copied to RAM. 
OFFH is used as the power-on default value for the variables. 


PARMAREA: 
SECDEST: ; DEST ADDRESS FOR DATA FROM FDC READ SECTOR COMMAND 
DB OFFA > OO01B DESTINATION ADDRESS FOR SECTOR DATA LSB (08081BH) 
DB OFFH ; OOI1C DESTINATION ADDRESS FOR SECTOR DATA LSB (08081CH) 
ADDRDEST: ; DEST ADDRESS FOR DATA FROM FDC READ ADDRESS COMMAND 
; TRACK, SIDE #, SECTOR ADDR, SECTOR LENGTH, CRC1, CRC2 
DB OFFH ; 001D DEST ADDRESS FOR READ ADDRESS DATA LSB (0801DH) --- TRACK # 
DB OFFH ; 001E DEST ADDRESS FOR READ ADDRESS DATA LSB (0801EH) --- SIDE # 
STARTSECFLAG: 
DB OFFH ; OO1F If > 17 boot sector #17 is used for boot sector # -- SECTOR # 
š if <= 17 then 0 is used for boot sector # (O801FH) 
SECLEN: H === SECTOR 
LENGTH 
DB OFFH ; 0020 if equal to 003H (1024 bytes) SELECTS (08020H) 
A "FIVE SECTOR" TABLE, otherwise "10 SECTOR" table is used. 


DB OFFH ; 0021 (08021H) === CRCI 
DB OFFH ; 0022 (08022H) === (CRC2 


BDCTLSHADOW: 
DB OFFH ; 0023 BDCTLSHADOW (08023H) 


PARM24: 
DB OFFH ; 0024 Gets decremented once for every call to READFDCDATA (08024H) 


TRKSECNUM: 
DB OFFH ; 0025 Gets loaded with number for sectors as they're read by 
J READTRACK (08025H) 
FDCSTAT: 


DB OFFH ; 0026 Copy of the FDC STATUS value (08026H) 


SIDEI1FLAG: 
DB OFFH ; 0027 non-0 = Select Side 1 before STEP IN (08027H) 


SECOFFSET: 
DB OFFH ; 0028 offset for sector numbers (08028h) 


; START of boot code = execution starts from ROM at 00000H 
; and then jumps to execution from memory after 
; the ROM has been copied into RAM. 


START: 
DI ; 0029 disable interrupts 
XRA A ; 002A clear Board Control Register 
OUT BDCTLRG > 002B 
; Copy ROM to RAM at 08000H 
LXI H,RESETVEC ; 002D load source address 
LXI D,RAMLOC ; 0030 load relocation destination address 
RELOLOOP: ; copy 4K bytes from source to destination 
MOV A,M 7; 0033 
STAX D ; 0034 
INX H + 0035 
INX D 7 0036 
MOV A,H + 0037 
CPI 010H ; 0038 4K written? 
JNZ RELOLOOP-RAMLOC ; 003A No. Move next byte 
JMP RAMCODE ; 003D Yes. Jump over text 
CPYRT: 7 0040 = 006D 


DB 'Boot Rom Version 2.0 (C) 1984 Ampro Computers' 


; The following code is executed from RAM 
; after ROM has been copied to 08000H 


r 


RAMCODE : 
LXI BB,STACLOC ; 006E init stack pointer 


INITCTC: 

; Init CTC channels 0 and 1 by writing sequence from CTCINITTAB 
; (apply data from table until OFFH encountered) 

LXI H,CTCINITAB ; 0071 


INICTCLOOP: 
MOV A,M ; 0074 
INR A z 0075 
JZ INITDART 7 0076 
DCR A 7 0079 
OUT CTCCHORG ; 007A Init ctr timer ch 0 = DART ch A baud rate gen 
OUT CTCCH1IRG ; 007C Init ctr timer ch 1 = DART ch B baud rate gen 
INX H = OO7E 


JMP INICTCLOOP ; OO7F 


CTCINITAB: + 082H (08082H) 
DB 047H ; 047H => no interrupt, counter mode, 16 prescaler, 
R falling edge, automatic trigger, 
H time constant follows, software reset, control word 
DB OODH ; time constant OD => 2MHz / SOD 


; yields 9615.38 (~9600 baud) when combined with /16 
; prescaler in DART 


DB OFFH 


7 INITIALIZE DART 


INITDART: 
LXI H,DARTINITAB ; 0085 
INIDARTLOOP: 
MOV A,M ; 0088 
INR A > 0089 
JZ BOOTSECX ; OO8A 
DCR A 7 008D 
OUT DARTAREG 7; 008E 
OUT DARTBREG 7 0090 
INX H 7 0092 


JMP INIDARTLOOP ; 0093 


DARTINITAB: ; 096h (8096h) 
DB 04H 
DB 46H 
DB 05H,0EAH,03H,0C1H,0OFFH 


7 GET AND EXECUTE BOOT SECTOR 
; Read boot sector data into 09000H and execute it if successful 
; otherwise, endless restart loop until successful 


BOOTSECX: 
CALL SELDRIVE1 ; 009D Select Drive 1 and return to Track 0 
CALL READADDR > OOAO 
CALL CHKFDCSTAT ; OOA3 


LDA STARTSECFLAG ; OOA6 Get parameter 1F (sector number from READADDR) 
CPI 011H ; 00A9 Compare to 17 - If >= 17 boot sector #17 is used 
$ if < 17 then 0 is used. 


MVI A,000H ; OOAB Clear A (use move so Carry doesn't get changed) 
JC NEXT3 ; OOAD Leave A = 0 
INR A ; OOBO set A= 1 
NEXT3 
STA SIDE1FLAG ; OOB1l Set SIDEIFLAG to 1 
ORA A > 00B4 Clear carry so it doesn't rotate in 
RAL ¿+ 00B5 If A= 1, A <= 16. If A = 0, no change. 
RAL ¿$ OOB6 
L $ OOB7 
L 7; OOB8 
STA SECOFFSET ; 00B9 Save Sector Offset (16 is default for boot ROM) 
LXI H,BOOTSECDEST ; OOBC 
SHLD SECDEST ; OOBF 
INR A ; 00C2 Starting sector number will be 17 or 1 
OUT FDCSECRG ; 0OC3 Write sector number to FDC Sector Register 
CALL READSEC ; 00C5 Read the sector 
CALL CHKFDCSTAT z OOC8 Check status- restart if Record Not Found or CRC Err 
JMP BOOTSECDEST 7 OOCB RUN BOOT SECTOR 
; SELECT AND RESET DRIVE 1 - Select Drive 1 and return 
i to Track 0: 
SELDRIVE1: 
MVI A,001H ; OOCE Assert Drive Select 1 and DDEN#. 
P ROM enabled. All drives deselected. 
OUT BDCTLRG + @0DO 
STA BDCTLSHADOW ; 00D2 Save to Shadow copy of Board Control Register 
CALL TERMFCMD ; OOD5 Terminate any commands in progress 
MVI A,FDCRESTORE ; 00D8 Tell FDC to return drive to Track 0. 
CALL ISSUFCMD ; 00DA 
WAITNOTBUSY: ; wait until FDC command is finished 
IN FDCSTATRG ; OODD 
RAR ; OODF 
JC WAITNOTBUSY ; OOEO Check BUSY bit 
CALL LONGDELAY ; 00E3 Delay required after issuing the RESTORE command 
JMP ODDRET ; OOE6 Jump to a return instruction... Why? 
; READ TRACK - actually not a "READ TRACK" per se. Reads individual 


; sectors from the present track in order listed in FIV 


The boot rom itself doesn't use 


ESECTTAB 
this routine. 


used by Ampro boot loader code in the boot sector. 


; or TENSECTTAB tables. 

; It is 

READTRACK: 
LDA SECLEN + OOES if 
CPI 003H + OOEC 
LXI H,FIVESECTTAB ; OOEE 
JZ RDSECLOOP $ OOFL 
LXI H, TENSECTTAB z OOF4 

RDSECLOOP: 
MOV C,M ; 00F7 
INX H > 00F8 
INR C 2 OOFS 
RZ ; OOFA 
DCR C ; OOFB 
LDA SECOFFSET 2 DORE 
ADD C ; OOFF 


equal to 003H SELECTS 
otherwise "10 SECTOR" 


"FIVE SECTOR" 
table is used. 


T 


TABLE, 
(08020H) 


Read Sector Number from table into C 
advance to next table entry 

test for end of table (C 
return if end of table 
restore pre-test value of C 
get starting sector offset 
add sector number from table 


OFFH) 


STA 08025H 


OUT FDCSI 


PUSH 


H 


ECRG 


CALL R 


KADSEC 


CALL CHKFDCSTAT 


ECLOOP 


0100 save it 

; 0103 Write Sector Number to FDC 
0105 

0106 


; 0109 Check status- restart if Record Not Found or CRC Err 


+ 010G 


TENSECTTAB: 


r 


FIVESECTTAB: ; 


(08110H) 


DB 01H,02H,03H,04H,05H,06H,07H 
DB 08H,09H, OAH, OFFH 


(0811BH) 


DB 01H,02H,03H,04H,05H, OFFH 


; READ FLOPPY ADDRESS field data and store the bytes at 


; starting at ADDR 
> This is used to 
; into the STARTSE 


E 


; the SECTOR LENGT 
READADDR: 
IN FDCSTATRG 
IN FDCDATRG 


CALL T! 


ERMFCMD 


LXI H,ADDRDEST 
MVI A,FDCRDADDR 
CALL ISSUFCMD 

CALL RDFDCDATA 
MOV A,B 
STA FDCSTAT 


DEST (Parameter "1D") 

load ANY sector number from the track 
CFLAG (parameter "1F") and to get 

H 


H 
N 
bh 


clear floppy status register 
123 clear floppy data register 


N 
ol 


N 
œ 


Load HL with ADDRDEST 
READ ADDRESS command 


130 


wW w 
Ae W 


Save FDC Status 


` 
S SO (O'S ‘SOS O'S 
N N 
OW 


137 


EAD 5 


,ADSEC: 


N FDCSTATRG 
N FDCDAT 


RG 


LHLD S 


ECD 


EST 


CALL TI 
MVI A, 


ERMFCMD 
RDSGLSEC 
CALL ISSUFCMD 


CALL RDFDCDATA 


MOV A,B 
STA FDCSTAT 


SHLD S 


ECD 


EST 


ector number prior to calling this routine. 


H 
Ww 
[00] 


Read FDC Status 
Read FDC Data 


Ww 
D 


W W 
NAQA 


Issue the command 
Read the data and store where S 


A 
N 


14A Get FDC Status 
14B Save it in RAM 


` 
oO oO: Oo OE Oo: Oo Oo Oo © Oo 
H Sis H I Pee 

ws 

aS 


7; READ DATA FROM FLOPPY UNTIL NOT BUSY 
RDFDCDATA: 
IN FDCSTATRG 


¿ 0152 


Get Destination Address into HL 
Terminate any commands in progress 
FDC command to read a single sector 


Terminate any FDC commands in progress 


R ECTOR from floppy and store it where SECDEST is pointing 
; Note that the FDC SECTOR REGISTER must be loaded with the 

S 

A 


ECD 


EST is pointing 


ntil command completes because of no more data or error 


14E Advance the Destination Address Value 


MOV B,A ; 0154 Save FDC Status for examine after return 
RAR z 0155. FDC bit 0 BUSY BIT 
RNC , 0156 Return if NOT BUSY 
RAR ; 0157 FDC bit 1 DRO BIT, for reads 1b = data ready 
JNC RDFDCDATA ; 0158 loop if data not ready 
IN FDCDATRG 7 015B read the data 
MOV M,A 7 015D store at address given by HL 
INX H ; 015E increment HL 
JMP RDFDCDATA ; O15F loop until complete (not busy) 
; SELECT SIDE 1 if SIDEIFLAG non-0, then STEP IN to next track 
STEPIN: 
LDA SIDE1FLAG > 0162 non-O = SELECT SIDE 1 before STEP IN 
ORA A 7 0165 
JZ SASRTN 7 0166 
CALL SELSIDE1 7 0169 (081A3H) 
LXI H,PARM24 ; 016C Decrement parameter 024H 
DCR M z O16F 
LXI H,000A7H ; 0170 Set interval for delay 
JMP DELAY ¿ 0173 delay and RETURN 
SASRTN: ; STEP IN, get status, and RETURN 
MVI A,FDCSTEPINI ; 0176 STEP IN, SIDE 1, update track reg, 30 mS step rate 
CALL ISSUFCMD = OL7S 
INPROGRESSWAIT: ; wait for BUSY to be asserted before returning 
IN FDCSTATRG  017B 
RAR $ 017D 
JC INPROGRESSWAIT ; 017E 
RET + 0181 


; TERMINATE FDC COMMAND IN PROGRESS 


TERMFCMD: 
MVI A,FDCTERMINATE ; 0182 
OUT FDCCMDRG ; 0184 
MVI A,000H + 0186 
DELAY255: 
DCR A 7; 0188 
JNZ DELAY255 7; 0189 
IN FDCSTATRG 4 018C 
RET ? 018E 


f 


, 


; ISSUE COMMAND TO FDC and wait until it's in process 


ISSUFCMD: 
OUT FDCCMDRG + 018F 
MVI A,00AH ; 0191 very short delay (in uS) before reading status 
TINYDELAY: 
DCR A : 0193 
JNZ TINYDELAY ¿ 0194 
FBUSYWAIT: 
IN FDCSTATRG 7 0197 
ANI 001H > 0199 
JZ FBUSYWAIT 7; 019B 
RET 019E 


; SET FDC DATA DESTINATION ADDRESS in SECDEST variable 
SETDESTADDR: 
SHLD SECDEST ; O19F Set parameter 1B with contents of HL 
RET ; O1A2 


; SELECT FLOPPY SIDE 1 in board control register. Leave other bits unaltered. 
SELSIDE1: 
LDA BDCTLSHADOW 7 O1A3 
ORI 010H 7; 01A6 FLOPPY SIDE 1 bit 
OUT BDCTLRG ; 0148 
RET ; O1AA 
; SELDRIVE1 RETURN - The SELDRIVE1 routine returns by jumping here. 
; Unknown whether it's used for anything else. 
ODDRET: 
RET ; O1AB 


; CHECK FDC STATUS - Reset if Record Not Found or CRC error. Otherwise, return. 
CHKFDCSTAT: 


LDA FDCSTAT ; O1AC Get last FDC status 
ANI 018H ; O1AF Test for Record Not Found or CRC error 
RZ + 01B1 return if no errors 
XRA A ; 01B2 otherwise clear the board control register 
OUT BDCTLRG i O1B3 
JMP RESETVEC ; 0O1B5 and restart the ROM. Note that restarting 
a from 0 also restores any RAM variable/parameters 
$ to their power-on defaults 
; A DELAY with a rather specific loop count of 0413CH. 
LONGDELAY: 
LXI H,0413CH ; 01B8 Load constant for fixed long delay loop 


; DELAY is also an entry point using HL as an input parameter 


DCX H ; O1BB 
MOV A,H ; O1BC 
ORA L ; O1BD 
JNZ DELAY ; O1BE 
RET z OLC2 


